home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
pc
/
vikingw.dir
/
01656_Script_Family
< prev
next >
Wrap
Text File
|
1995-09-12
|
2KB
|
86 lines
global gbeenclicked, gQuest
on VFamilyRollovers
set gbeenclicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(6) or rollover(8) then
repeat while rollover(6) or rollover(8)
VikingCursor
puppetsprite 9, true
set the locH of sprite 9 to 555
set the locV of sprite 9 to 330
updatestage
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
AnimateLoopFast 8, 35, 2, 0, 3
end repeat
end if
end if
end repeat
set the locH of sprite 9 to 999
updatestage
puppetsprite 9, false
else
if rollover(7) then
VikingCursor
repeat while rollover(7)
puppetsprite 10, true
set the locH of sprite 10 to 286
set the locV of sprite 10 to 357
updatestage
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
AnimateLoopFast 7, 37, 2, "SV140303.AIF", 2
end repeat
end if
end if
end repeat
set the locH of sprite 10 to 999
updatestage
puppetsprite 10, false
else
if rollover(11) then
ArrowCursor
repeat while rollover(11)
set the locH of sprite 12 to 397
set the locV of sprite 12 to 327
updatestage
end repeat
set the locH of sprite 12 to 999
updatestage
else
if rollover(27) then
ArrowCursor
repeat while rollover(27)
set the locH of sprite 28 to 526
set the locV of sprite 28 to 224
updatestage
end repeat
set the locH of sprite 28 to 999
updatestage
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end